home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / dosutils / tsbat50.zip / SAMENAME.BAT < prev    next >
DOS Batch File  |  1996-08-24  |  2KB  |  56 lines
  1. @echo off
  2. echo.
  3. echo ┌───────────────────────────────────────────────────┐
  4. echo │ Find the files with the same name on a drive      │
  5. echo │ Copyright by Prof. Timo Salmi Sat 24-Aug-96       │
  6. echo │ Email: ts@uwasa.fi  WWW: http://www.uwasa.fi/~ts/ │
  7. echo └───────────────────────────────────────────────────┘
  8. echo.
  9.  
  10. set drive_=%1
  11. set auxdr_=R:
  12. if "%drive_%"=="" goto _usage
  13.  
  14. rem Auxiliary drive
  15. if not exist %auxdr_%\nul goto _err1
  16.  
  17. rem The drive to be scanned for size duplicates
  18. if not exist %drive_%\nul goto _err2
  19.  
  20. rem The "engine"
  21. dir %drive_%\ /s | find /V "<DIR>" > %auxdr_%samenam1.$$$
  22. find /V "Directory of" < %auxdr_%samenam1.$$$ > %auxdr_%samenam2.$$$
  23. find /V "Total files listed:" < %auxdr_%samenam2.$$$ > %auxdr_%samenam1.$$$
  24. find /V " file(s)" < %auxdr_%samenam1.$$$ > %auxdr_%samenam2.$$$
  25. find /V " bytes free" < %auxdr_%samenam2.$$$ > %auxdr_%samenam1.$$$
  26. find /V "Volume in drive" < %auxdr_%samenam1.$$$ > %auxdr_%samenam2.$$$
  27. find /V "Volume Serial Number is" < %auxdr_%samenam2.$$$ > %auxdr_%samenam1.$$$
  28. find ":" < %auxdr_%samenam1.$$$ > %auxdr_%samenam2.$$$
  29. sort < %auxdr_%samenam2.$$$ > %auxdr_%samenam1.$$$
  30.  
  31. rem Present the results
  32. type %auxdr_%samenam1.$$$
  33. copy %auxdr_%samenam1.$$$ %auxdr_%samename.rpt > nul
  34. echo.
  35. echo The results are stored in %auxdr_%samename.rpt
  36.  
  37. rem Delete the auxiliary files
  38. if exist %auxdr_%samenam1.$$$ del %auxdr_%samenam1.$$$
  39. if exist %auxdr_%samenam2.$$$ del %auxdr_%samenam2.$$$
  40. goto _end
  41.  
  42. :_err1
  43. echo Auxiliary drive %auxdr_% not found
  44. echo Reconfigure the batch variable auxdr_ to point to a valid drive on your system
  45. goto _end
  46.  
  47. :_err2
  48. echo Invalid drive %drive_%
  49.  
  50. :_usage
  51. echo Usage %0 Drive:
  52.  
  53. :_end
  54. set drive_=
  55. set auxdr_=
  56.